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DECUS Program Library Write-up 


DECUS No. 8-308 


STORAGE 

6000 - 6347 (octal) 

DESCRIPTION 

The program reads input from the ASR keyboard or tape reader and translates all valid char¬ 
acters into Morse code. Output in the form of a square audio wave is taken from D to A 
converter and fed into an audio amplifier. Invalid input characters are ignored by the 
program. 

Translation into Morse code is by a table look*up method. Each character is coded into a 
single computer word as illustrated below: 

CODE ELEMENTS 0 = DOT; 1 = DASH 

BINARY NO. OF^—*■—\ 1 2 3 4 5 6 7 8 

CODE ELEMENTS f | I I I I-1-j-1-1—I—I- 

MINUS ONE. 


Determination of the validity of an input character is also accomplished by table look-up. 
The code speed is variable over its entire useful range. 

HARDWARE 

4K PDP-8, D to A converter, audio amplifier with speaker. 

RESTRICTIONS 

There is no input buffer in the program. Keyboard input must not be at a faster rate than 
code output. 

OPERATION 

Load with the binary loader. Starting address is 6000. The code speed is determined by the 
setting of the switch register and may be changed at any time. 


The valid input characters are: 


















A thru Z 
0 thru 9 
. , 

+ (double dash) 

§ (end of message) 
$ (end of work ) 

# (wait) 


4— (error) 

•f’(understood ) 

I (attention) 
(space) 

(line feed) 
(carriage return) 


A carriage return-line feed combination is timed as a space. The output audio frequency may 
be changed by changing the contents of address 6150. A different D to A converter may be 
selected by the appropriate output command in address 6120. 
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DA 1=6551 /D-A h 
NEG=7330 /5ET AC=4000 
*6000 /START ADR 


6000 

6032 

KCC /CLEAR FLAGS 

6001 

6046 

TLS 

6002 

7300 

ST, CLA CLL /READ INPUT CHARACTER 

6003 

6031 

KSF 

6004 

5203 

JMP .-1 

6005 

6036 

KRB 

6006 

3337 

DCA TEMP 

6007 

1340 

TAD STEST /BEGINNING OF VALID CHARACTER TABLE 

6010 

3346 

DCA CHAR 

6011 

7300 

CHECK, CLA CLL 

6012 

1746 

TAD 1 CHAR /FROM "VALID" TABLE 

6013 

2346 

ISZ CHAR 

6014 

7450 

SNA /END OF TABLE? 

6015 

5202 

JMP ST /YES, TRY ANOTHER INPUT 

6016 

7041 

CIA 

6017 

1337 

TAD TEMP 

6020 

7440 

SZA /INPUT VALID? 

6021 

5211 

JMP CHECK /NO, TRY NEXT ON LIST 

6022 

1337 

TAD TEMP /YES, ECHO 

6023 

6041 

TSF 

6024 

5223 

JMP .-1 

6025 

6046 

TLS 

6026 

1341 

TAD MODIFY 

6027 

3346 

DCA CHAR 

6030 

3337 

DCA TEMP 

6031 

1346 

TAD CHAR 

6032 

1342 

TAD SP /SPACE? 

6033 

7650 

SNA CLA 

6034 

5277 

JMP SPACE 

6035 

1346 

TAD CHAR 

6036 

1343 

TAD LF /LINE FEED? 

6037 

7650 

SNA CLA 

6040 

5300 

JMP LINF 

6041 

1346 

TAD CHAR 

6042 

1344 

TAD CR /CAR RET? 

6043 

7650 

SNA CLA 

6044 

5302 

JMP CARET 

6045 

7100 

CLL 

6046 

1746 

TAD 1 CHAR /GET DATA FROM TABLE 

6047 

3346 

DCA CHAR 

6050 

4327 

JMS ROT /DETERMINE # OF CODE ELEMENTS 

6051 

4327 

JMS ROT 

6052 

4327 

JMS ROT 

6053 

1337 

TAD TEMP 

6054 

7040 

CMA 

6055 

3337 

DCA TEMP 

6056 

7300 

NEXT, CLA CLL /DOT OR DASH? 

6057 

1346 

TAD CHAR 
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6060 

700A 

RAL 

6061 

3346 

DCA CHAR 

6062 

1211 

TAD CHECK 

6063 

331$ 

DCA AGAIN 

6064 

7420 

SNL /SKP IF DASH 

6065 

5270 

JMP DOT 

6066 

4304 

JMS COUNT 

606 7 

4304 

JMSCOUNT 

6070 

4304 

DOT, JMS COUNT 

607 1 

1312 

TAD INST 

6072 

3310 

DCA AGAIN 

6073 

4304 

JMS COUNT /SEND A SPACE 

6074 

2337 

ISZ TEMP /LAST ELEMENT FOR INPUT? 

6075 

5256 

JMP NEXT /SEND MORE 

6076 

5301 

JMP WDSP /SEND MORE SPACE & GET NEW INPUT 

6077 

4304 

SPACE, JMS COUNT 

6] 00 

43,04 

LINF, JMS COUNT 

6101 

4304 

WDSP, JMS COUNT 

6102 

4304 

CARET, JMS COUNT 

6103 

5202 

JMP ST 

6104 

0000 

COUNT, 0000 

6105 

7604 

LAS /GET SENDING SPEED 

6106 

7040 

CMA 

6107 

3345 

DCA CLOCK 

6110 

0000 

AGAIN,0000 /SEND IF CLA, SPACE IF NEG 

6111 

4317 

JMS CONV 

6112 

7330 

INST, NEG 

6113 

4317 

JMS CONV 

6114 

2345 

ISZ CLOCK 

6115 

5310 

JMP AGAIN 

6116 

5704 

JMP1 COUNT 

6117 

0000 

CONV,0000 

61 20 

6551 

DAL 

6121 

7300 

CLA CLL 

6122 

1350 

TAD PITCH 

6123 

3347 

DCA DELAY 

6124 

2347 

ISZ DELAY 

6125 

5324 

JMP .-1 

6126 

5717 

JMP1CONV 

6127 

0000 

ROT, 0000 

61 30 

1346 

TAD CHAR 

6131 

7004 

RAL 

6132 

3346 

DCA CHAR 

6133 

1337 

TAD TEMP 

6134 

7004 

RAL 

6135 

3337 

DCA TEMP 

6136 

5727 

JMP 1 ROT 

6137 

0000 

TEMP,0000 

6140 

6156 

STEST,6156 

6141 

6010 

MODIFY,6010 

6142 

1530 

SP, 1530 

6143 

1556 

LF,1556 
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6144 

1553 

6145 

0000 

6146 

0000 

6147 

0000 

6150 

7464 

6156 

0301 

6157 

0302 

6160 

0303 

6161 

0304 

6162 

0305 

6163 

0306 

6164 

0307 

6165 

0310 

6166 

0311 

6167 

0312 

6170 

0313 

6171 

0314 

6172 

0315 

6173 

0316 

6174 

0317 

6175 

0320 

6176 

0321 

6177 

0322 

6200 

0323 

6201 

0324 

6202 

0325 

6203 

0326 

6204 

0327 

6205 

0330 

6206 

0331 

6207 

0332 

6210 

0260 

6211 

0261 

6212 

0262 

6213 

0263 

6214 

0264 

6215 

0265 

6216 

0266 

6217 

0267 

6220 

0270 

6221 

0271 

6222 

0256 

6223 

0254 

6224 

0277 

6225 

0253 

6226 

0300 

6227 

0244 

6230 

0243 

6231 

0241 


CR,1553 
CLOCK ,00,00 
CHAR ,0000 
DELAY, 0000 
PITCH, 7464 

*6156 /START OF 'VALID" TABLE 

301 

302 

303 

304 

305 

306 

307 

310 

311 

312 

313 

314 

315 

316 

317 

320 

321 

322 

323 

324 

325 

326 

327 

330 

331 

332 
260 
261 
262 

263 

264 

265 

266 
267 

270 

271 
256 
254 
277 
253 
300 

244 

243 

241 
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6232 $336 336 

6233 $257 257 

6234 $247 247 

6235 $255 255 

6236 $25$ 25$ 

6237 $251 251 

624$ $272 272 

6241 $273 273 

6242 $242 242 

6243 $337 337 

6244 $212 212 

6245 $215 215 

6246 $24$ 24$ 

6247 $$$$ $$$ /END OF VALID TABLE 

625$ $$$$ $$$ 

6251 452$ 4520 /START DATA TABLE 

6252 5220 5220 

6253 420$ 420$ 

6254 5050 5050 

*6257 

6257 536$ 536$ 

626$ 555$ 555$ 

6261 555$ 555$ 

6262 $$$$ $$$$ 

6263 4420 442$ 

6264 563$ 563$ 

6265 541$ 541$ 

6266 525$ 525$ 

6267 444$ 444$ 

627$ 476$ 476$ 

6271 436$ 436$ 

6272 416$ 416$ 

6273 4$6$ 4$6$ 

6274 4$20 4$20 

6275 4$$$ 4$$$ 

6276 44$$ 44$$ 

6277 46$$ 46$$ 

63$$ 47$$ 47$$ 

63$1 474$ 474$ 

63$2 5700 5700 

63$3 5520 552$ 

*63$7 

63$7 514$ 514$ 

631$ 424$ 424$ 

6311 120$ 120$ 

6312 34$$ 34$$ 

6313 35$$ 35$$ 

6314 24$$ 24$$ 

6315 $00$ $$$$ 
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6316 3100 3100 

* 6317 2600 2600 

6320 3000 3000 

6321 1000 1000 

6322 3340 3340 

6323 2500 2500 

6324 3200 3200 

6325 1600 1600 

6326 1400 1400 

6327 2700 2700 

6330 3300 3300 

6331 3640 3640 

6332 2200 2200 

6333 2000 2000 

6334 0400 0400 

6335 2100 2100 

C 6336 3040 3040 

6337 2300 2300 

6340 3440 3440 

6341 3540 3540 

6342 3600 3600 

*6346 

6346 4040 4040 

6347 7000 7000 


AGAIN 

6110 

CARET 

6102 

CHAR 

6146 

CHECK 

6011 

CLOCK 

6145 

CONV 

6117 

COUNT 

6104 

CR 

6144 

DAL 

6551 

DELAY 

6147 

DOT 

6070 

INST 

6112 

LF 

6143 

LINF 

6100 

MODIFY 

6141 

NEG 

7330 

NEXT 

6056 

PITCH 

6150 

ROT 

6127 

SP 

6142 

SPACE 

6077 

ST 

6002 

STEST 

6140 

TEMP 

6137 

WDSP 

6101 
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